//---FORNECEDOR-----------------------------------------------------------------------
User Function MA020TOK()
	_lRetorno := .T.
	
	If M->A2_EST == "EX"
	     _lRetorno := .T.
	Else
	     If Empty(ALLTRIM(M->A2_CGC))
	          Alert ("Favor Digitar o CGC/CPF do Fornecedor !!!")
	          _lRetorno := .F.
	     EndIf
	EndIf
Return _lRetorno

User Function MA020ALT()
	_lRetorno := .T.
	
	If M->A2_EST == "EX"
	     _lRetorno := .T.
	Else
	     If Empty(ALLTRIM(M->A2_CGC))
	          Alert ("Favor Digitar o CGC/CPF do Fornecedor !!!")
	          _lRetorno := .F.
	     EndIf
	EndIf
Return _lRetorno


//---CLIENTE--------------------------------------------------------------------------
User Function MA030TOK()
	_lRetorno := .T.
	
	If M->A1_EST == "EX"
	     _lRetorno := .T.
	Else
	     If Empty(ALLTRIM(M->A1_CGC))
	          Alert ("Favor Digitar o CGC/CPF do Cliente !!!")
	          _lRetorno := .F.
	     EndIf
	EndIf
Return _lRetorno